unit CadEntregador;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, ImgList, ComCtrls, StdCtrls, ExtCtrls, DB, DBTables;

type
  TFormEntregador = class(TForm)
    ListViewClientes: TListView;
    ImageList2: TImageList;
    PanelDetalhes: TPanel;
    Label3: TLabel;
    Label7: TLabel;
    EditNome: TEdit;
    EditObs: TEdit;
    CheckBoxAtivo: TCheckBox;
    ActTotal: TActionList;
    ActionIncluir: TAction;
    ActionSalvar: TAction;
    ActionExcluir: TAction;
    ActionProcurar: TAction;
    ActionVoltar: TAction;
    QueryEntregador: TQuery;
    QueryAtualiza: TQuery;
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure SalvaEntregador;
  public
    { Public declarations }
  end;

var
  FormEntregador: TFormEntregador;
  vModo :String;

implementation

uses Principal;

{$R *.dfm}

procedure TFormEntregador.FormActivate(Sender: TObject);
begin
top := 0;
left := 0;

EditNome.SetFocus;
end;

procedure TFormEntregador.FormShow(Sender: TObject);
begin
vModo := 'I';
end;

procedure TFormEntregador.SalvaEntregador;
var    Sql,vAtivo, vData: String;

begin

if EditNome.Text = '' then
begin
   MessageDlg('Informe o Nome do Entregador',mtinformation, [mbOk], 0);
   EditNome.SetFocus;
   exit;
end;

if CheckBoxAtivo.checked then
   vAtivo := '1'
else
   vAtivo := '0';


if vModo = 'I' then
begin
   Sql := 'insert into syspizza.entregador (nm,dt_cadastro,ativo,obs) ' +
                           'values (''' + EditNome.Text + ''',''' +
                                          formPrincipal.GetDataCadastro(now,1) + ''',' +
                                          vativo + ',''' +
                                          EditOBS.Text + ''')'
end
else
begin
    Sql := 'update syspizza.entregador set nm = ''' + EditNome.Text + ''',' +
                                        'dt_cadastro = ''' + formPrincipal.GetDataCadastro(now,1) + ''',' +
                                        'ativo = ' + vativo + ',' +
                                        'obs = ''' + Editobs.Text + ''' ' +
                                        'where id = ' + QueryEntregador.fieldByName('id').AsString;
end;

//ShowMessage(Sql);

QueryAtualiza.SQL.Clear;
QueryAtualiza.SQL.Add(Sql);
QueryAtualiza.ExecSQL;

MessageDlg('Entregador Atualizado',mtinformation, [mbOk], 0);

end;

end.
